Developer CD Series 1999 May: Tool Chest/Developer CD Series Tool Chest (Apple Computer)(May 1999).iso/Tool Chest/Development Kits/MPW Related/DTS MPW Goodies/FLookup

Text File | 1990-09-14 | 182 b | 12 lines | [TEXT/MPS ]

# Lookup dir:
# Fast read-only, directory-only version

Set olddir "`Directory`"
Set Exit 0
Directory "{1}"
Open -r
Set xstatus {Status}
Set Exit 1
Directory {olddir}
Exit {xstatus}